home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Utilities / In⁄Out™ / In_Out™ / card_13447.txt < prev    next >
Text File  |  1990-04-09  |  3KB  |  148 lines
  1. -- card: 13447 from stack: in
  2. -- bmap block id: 13800
  3. -- flags: 0000
  4. -- background id: 2649
  5. -- name: username1
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=316 top=154 right=174 bottom=444
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card SS
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A000
  30. -- rect: left=321 top=199 right=219 bottom=439
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: OK
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to card SLBnames
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=70 top=125 right=255 bottom=291
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: New Button
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   show card field "nau"
  61.   repeat until the mouse is down
  62.     show card field "nau"
  63.   end repeat
  64.   hide card field "nau"
  65.   go to card nameafteruser
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 4 (button)
  71. -- low flags: 00
  72. -- high flags: 2000
  73. -- rect: left=316 top=232 right=252 bottom=444
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: OK
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   go to card SLBnames
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 5 (field)
  90. -- low flags: 80
  91. -- high flags: 0004
  92. -- rect: left=117 top=271 right=294 bottom=406
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 20
  97. -- text size: 18
  98. -- style flags: 0
  99. -- line height: 24
  100. -- part name: nau
  101.  
  102.  
  103. -- part 6 (field)
  104. -- low flags: 80
  105. -- high flags: 0004
  106. -- rect: left=97 top=149 right=248 bottom=412
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 20
  111. -- text size: 18
  112. -- style flags: 0
  113. -- line height: 24
  114. -- part name: wg
  115.  
  116.  
  117. -- part 7 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=154 top=98 right=116 bottom=252
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: New Button
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   show card field "wg"
  132.   repeat until the mouse is down
  133.     show card field "wg"
  134.   end repeat
  135.   hide card field "wg"
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part contents for card part 5
  141. ----- text -----
  142. Select the name here.
  143.  
  144. -- part contents for card part 6
  145. ----- text -----
  146. This is the currently selected WorkGroup.
  147. You can also select a new WorkGroup here (if applicable).  This will show you all the names in that selected workgroup.
  148.